home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / flags boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  593b  |  19 lines
  1. 0 rem flags boot
  2. 1 ifx>.then6
  3. 2 poke53280,1:poke53281,1
  4. 3 print"[147][144]- please wait while i raise the flags -"
  5. 5 ifx=0thenx=1:load"unpacker",8,1
  6. 6 ifx=1thenx=2:load"flag.title.shp",8,1
  7. 7 ifx=2thenx=3:load"hi-res text.o",8,1
  8. 10 poke249,224:poke250,204:                 rem screen/color
  9. 20 poke251,0:poke252,64:                    rem shp buffer
  10. 30 poke253,0:poke254,0:                     rem   x-pos,y-pos
  11. 35 poke53280,1: rem  border to white
  12. 50 sys51456:    rem  unpack normal shp
  13. 60 sys51459:    rem  show screen
  14. 70 f$="flags in the wind":rem  file to load & run
  15. 75 :
  16. 80 print"[147]loadf$,8"
  17. 82 print"run"
  18. 83 poke631,13:poke632,13:poke198,2:end
  19.